(ange-ftp-load): If fail, return nil.

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 215463bbf0bb74c9f90adb518d1a495668ca0eb5..5f68210d5354c8eb164ad899155f764b31e69d0d 100644 (file)
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -3772,7 +3772,8 @@ system TYPE.")
                (funcall 'load copy noerror nomessage nosuffix)
              (delete-file copy))
          (or noerror
-             (signal 'file-error (list "Cannot open load file" file)))))
+             (signal 'file-error (list "Cannot open load file" file)))
+         nil))
     (ange-ftp-real-load file noerror nomessage nosuffix)))
 
 ;; Calculate default-unhandled-directory for a given ange-ftp buffer.